home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE6 / PD / PDF / GuiLib / Wimp / c++ / ERROR next >
Text File  |  2003-02-14  |  3KB  |  81 lines
  1. //--------------------------------------------------------------------------
  2. //
  3. //   Copyright (c) 2002, Colin Granville
  4. //
  5. //   All rights reserved.
  6. //
  7. //   Redistribution and use in source and binary forms, with or
  8. //   without modification, are permitted provided that the following 
  9. //   conditions are met:
  10. //
  11. //      * Redistributions of source code must retain the above copyright 
  12. //        notice, this list of conditions and the following disclaimer.
  13. //
  14. //      * Redistributions in binary form must reproduce the above 
  15. //        copyright notice, this list of conditions and the following 
  16. //        disclaimer in the documentation and/or other materials 
  17. //        provided with the distribution.
  18. //
  19. //      * The name Colin Granville may not be used to endorse or promote 
  20. //        products derived from this software without specific prior 
  21. //        written permission.
  22. //
  23. //   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
  24. //   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
  25. //   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 
  26. //   FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE 
  27. //   COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, 
  28. //   INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 
  29. //   (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR 
  30. //   SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 
  31. //   HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, 
  32. //   STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
  33. //   ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED 
  34. //   OF THE POSSIBILITY OF SUCH DAMAGE.
  35. //
  36. //--------------------------------------------------------------------------
  37.  
  38. #include "swis.h"
  39. #include "ERROR.h"
  40. #include <stdlib.h>
  41. #include <stdio.h>
  42. #include <stdarg.h>
  43. #include "GuiToolbox.h"
  44.  
  45. // minimise stack usage
  46. static char buf[128]; 
  47. static _kernel_oserror err;
  48.  
  49. const _kernel_oserror* ERROR(int fatal,const _kernel_oserror *e)
  50. {
  51.   if (!e) return(e);
  52.   _kernel_oserror *err;
  53.   // get application name into buf
  54.   err=_swix(Toolbox_GetSysInfo,_INR(0,2),0,buf,128); 
  55.   _swix(Wimp_ReportError,_INR(0,2),e,1<<3,((err)?"Application":buf));
  56.   if (fatal) exit(0);
  57.   return(e);
  58. }
  59. //****************************************************************************
  60. void ERROR(const char* format, ...)
  61. {
  62.   va_list va;
  63.   err.errnum = 0;
  64.   va_start(va, format);
  65.   vsprintf(err.errmess, format, va);
  66.   va_end(va); 
  67.   ERROR(&err); 
  68. }
  69. //****************************************************************************
  70. void WARN(const char* format, ...)
  71. {
  72.   va_list va;
  73.   err.errnum = 0;
  74.   va_start(va, format);
  75.   vsprintf(err.errmess, format, va);
  76.   va_end(va); 
  77.   WARN(&err); 
  78. }
  79. //****************************************************************************
  80.  
  81.